Private Sub ComboBox1_Change()

    Dim  As Range
    Dim ã As Range
    
    If ComboBox1.MatchFound = True Then
    
        Set  = Range("C3", Cells(Rows.Count, "C").End(xlUp))
        Set ã = .Find(What:=ComboBox1.Value, LookAt:=xlWhole)
    
        With TextBox1
            .Value = ã.Offset(, 2).Value
            .TextAlign = fmTextAlignCenter
        End With
        
        With TextBox2
            .Value = ã.Offset(, 3).Value
            .TextAlign = fmTextAlignCenter
        End With
                    
    Else
                    
        TextBox1.Value = ""
        TextBox2.Value = ""
        
    End If
    
End Sub
